home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
surfsrc3.zip
/
MENU.INC
< prev
next >
Wrap
Text File
|
1991-09-29
|
1KB
|
36 lines
procedure MENU (var Cmmd: integer);
begin
perf_show; { Draw performance window }
repeat
openwin (13,6,67,21, FALSE);
clrscr; { Just clear the window }
gotoXY(1,1);
writeln (' SURFMODL ', Surfmvsn, ' (',Lastupd,')');
writeln;
writeln (' by Kenneth Van Camp, Kevin Lowey,');
writeln (' and a cast of thousands');
writeln;
writeln (' MAIN MENU');
writeln;
writeln (' 1 Change Parameters');
writeln (' 2 Wire Frame Plot');
writeln (' 3 Hidden Line Removal');
writeln (' 4 Surface Model');
writeln (' 5 Read New File From Disk');
writeln (' 0 Exit Program');
write ('Command: ');
Cmmd := getkey;
if (Cmmd < 0) or (Cmmd > 5) then
write(^G)
else begin
writeln (cmmd);
if cmmd = 0 then begin
write ('Do you really want to quit (Y/N): ');
if upcase (readkey) <> 'Y' then
cmmd := -1;
end;
end;
until ((Cmmd >= 0) and (Cmmd <= 5));
end; { procedure Menu }